home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
gfx
/
board
/
egs71_d1.lha
/
EGS-System
/
Install_EGS7.1
< prev
next >
Wrap
Text File
|
1995-04-18
|
5KB
|
186 lines
; EGS System 7.1 Installation utility
(message "Welcome to the EGS System 7.1\n"
"This is not an official EGS Update. "
"It is just a collection of free available "
"EGS System 7 files and the older 6.2 installation. "
"I've put the things together to make it easer to "
"install System 7 to your machine. "
"This Archive does not include any drivers except "
"for Native Amiga and the EGSWB driver.\n\n"
"EGS is (c)1992-94 Viona\n"
"This archive was brought to you by Jürgen Schober\n"
"enjoy ...")
(set opt
(askoptions
(prompt "choose files to install : \n")
(choices "EGS-System7.1" "EGS-Tools" "EGS-Games" "EGS-Pictures")
(default 15)
(help @askoptions-help)
)
)
(set Sys7 (BITAND opt 1))
(set Tools (BITAND opt 2))
(set Games (BITAND opt 4))
(set Pics (BITAND opt 8))
; * install the system itself
(if Sys7
(
(set @dest (expandpath "sys:"))
(copyfiles
(prompt "Installing EGS System 7.1...")
(source "EGS-System:")
(pattern "(egs-sys#?|lha)")
(dest "ram:")
(help @copyfiles-help)
)
(set destination
(askdir
(prompt "Where should I put the EGS System 7.1 ?\n"
"(EGS Drawer will be created)")
(help @askdir-help)
(default @dest)
)
)
(set destination (cat destination "EGS"))
(set @egsdir destination)
(run "lha x ram:egs-system.lha ram:")
(delete "ram:egs-system.lha")
(makedir destination
(prompt "Make EGS Directory")
(infos)
(help @makedir-help)
)
(copyfiles
(prompt "Copy files to " destination)
(source "ram:EGS-System/")
(pattern "~(Env-Archive|Env-Archive.info)")
(dest destination)
(infos)
(help @copyfiles-help)
)
(copyfiles
(prompt "copy the default settings into envarc:")
(source "ram:EGS-System/Env-Archive/")
(all)
(dest "envarc:")
(help @copyfiles-help)
)
(run "delete ram:EGS-Sys#? all")
(askdisk
(prompt "Please insert 'EGS-Storage' in any Driver.")
(assigns)
(dest "EGS-Storage")
(help @askdisk-help)
)
(copyfiles
(prompt "copy EGS-Storage.lha to ram:")
(source "EGS-Storage:EGS-Storage.lha")
(dest "ram:")
(help @copyfiles-help)
)
(run "ram:lha x ram:egs-storage.lha ram:")
(delete "ram:EGS-Storage.lha")
(copyfiles
(prompt "copy EGS-System 2 to EGS:")
(source "ram:EGS-Storage")
(all)
(dest destination)
(help @copyfiles-help)
)
(run "delete ram:EGS-Stor#? all")
(copyfiles
(source (cat destination "/Storage/Monitors/EGS"))
(dest "devs:Monitors")
(infos)
)
(run (cat "assign EGS: " destination))
(if (= (exists (cat destination "/Startup") (noreq)) 0)
(makedir (cat destination "/Startup"))
)
(if (= (exists (cat destination "/Storage/Border") (noreq)) 0)
(makedir (cat destination "/Storage/Border"))
)
(if (= (exists (cat destination "/Storage/Driver") (noreq)) 0)
(makedir (cat destination "/Storage/Driver"))
)
(if (= (exists (cat destination "/Config/Border") (noreq)) 0)
(makedir (cat destination "/Config/Border"))
)
)
(
(exit)
)
)
(if Games
(
(copyfiles
(prompt "copy EGS-Games.lha to ram:")
(source "EGS-Storage:EGS-Games.lha")
(dest "ram:")
(help @copyfiles-help)
)
(run "ram:lha x ram:egs-games.lha egs:")
(delete "ram:egs-games.lha")
)
)
(if Tools
(
(askdisk
(prompt "Please insert 'EGS-Tools' in any Driver.")
(assigns)
(dest "EGS-Tools")
(help @askdisk-help)
)
(copyfiles
(prompt "copy EGS-Tools.lha to ram:")
(source "EGS-Tools:EGS-Tools.lha")
(dest "ram:")
(help @copyfiles-help)
)
(run "ram:lha x ram:egs-tools.lha egs:")
(delete "ram:egs-tools.lha")
)
)
(if Pics
(
(askdisk
(prompt "Please insert 'EGS-Pictures' in any Driver.")
(assigns)
(dest "EGS-Pictures")
(help @askdisk-help)
)
(copyfiles
(prompt "copy EGS-Pictures.lha to ram:")
(source "EGS-Pictures:EGS-Pictures.lha")
(dest "ram:")
(help @copyfiles-help)
)
(run "ram:lha x ram:egs-pictures.lha egs:")
(delete "ram:egs-pictures.lha")
)
)
(if (exists "ram:lha" (noreq))
(delete "ram:lha")
)
(message "\n\n\nPlease check out the path in the \"devs:Monitors/egs\" file !\n"
"Change the EGS-path to \"assign EGS: " @egsdir "\" if needed !")
(set @default-dest @egsdir)
(exit)